home *** CD-ROM | disk | FTP | other *** search
/ A Virtual Reality Guide to Texas / CD.iso / texdata / trnsprtr.dir / 00570_main internet help scroll up.ls < prev    next >
Encoding:
Text File  |  1998-06-17  |  645 b   |  25 lines
  1. on mouseDown
  2.   set clickTime to the ticks
  3.   puppetSprite(the clickOn, 1)
  4.   set the castNum of sprite the clickOn to 422
  5.   updateStage()
  6.   puppetSound(3, "beep3")
  7.   repeat while the stillDown
  8.     if rollOver(the clickOn) then
  9.       set the castNum of sprite the clickOn to 422
  10.       updateStage()
  11.       if the ticks > (clickTime + 120) then
  12.         set delay to 2
  13.       else
  14.         set delay to 1
  15.       end if
  16.       scrollByLine(member "MainInternetInstructions", -1 * delay)
  17.     else
  18.       set the castNum of sprite the clickOn to 421
  19.     end if
  20.     updateStage()
  21.   end repeat
  22.   set the castNum of sprite the clickOn to 421
  23.   updateStage()
  24. end
  25.